home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xm / toggle-btn.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  599 b   |  17 lines
  1. #include "../xt/xt.h"
  2. #include <Xm/Xm.h>
  3. #include <Xm/ToggleB.h>
  4.  
  5. static Object S_Toggle_Button_ValueChangedCallback (x) XtArgVal x; {
  6.    return Get_Any_CB ((XmAnyCallbackStruct *)x);
  7. }
  8.  
  9. init_togglebutton () {
  10.     XtResourceList r = 0;
  11.     Define_Class ("toggle-button", xmToggleButtonWidgetClass, r, 0);
  12.     Define_Callback ("toggle-button", "valueChangedCallback", 1);
  13.     Define_Callback ("toggle-button", "disarmCallback", 1);
  14.     Define_Callback ("toggle-button", "armCallback", 1);
  15.     Define_Converter_To_Scheme ("toggle-button-valueChangedCallback", S_Toggle_Button_ValueChangedCallback);
  16. }
  17.